13801 Y=12:GOSUB133==:Y2=Y:GOSUB11950:Y=X(1):GOSUB10350:Y=12:GOSUB13300
13802 Y4=Y:GOSUB13050:Y=<INT(200*LOG(Y4/Y2)/LOG(18)))/10:RETURN
13850 Y1$="IMAGE-FREQ.REJECT.":REM***78
13851 Y=12:GOSUB13300:Y2=Y:Y=X(1)+2*X(5):GOSUB10350:Y8=1
13852 Y=Y8:GOSUB10400:Y=60:GOSUB13200:IFY8=1E6THEN13857
13853 IF ABS(Y-12)<3THEN13855
13854 YH=40:GOSUB13875:GOTO13852
13855 IFABS(Y-12)<.5THEN13857
13856 YH=80:GOSUB13875:GOTO13852
13857 Y4=Y8:GOSUB13050:Y=(INT(200*LOG(Y2/Y4)/LOG(10)))/10:RETURN
13875 Y8=(INT(100*Y8*10^”((12-Y)/YH)))/100
13876 IFY8>1E6THENY8=1E6
13877 RETURN
13900 Y1$="------------------“:REM****79
13910 RETURN
13950 Y1$="-------------------":REM**80
13960 GOTO14950
14000 Y1$="----------------":REM*****81
14010 RETURN
14050 Y1$="---------------":REM******82
14060 RETURN
14100 Y1$="---------------":REM******83
14108 RETURN
14150 Y1$="---------------":REM******84
14158 RETURN
14200 Y1$="-----------":REM**********85
14230 RETURN
14250 Y1$=“ANALOG DISPLAY":REM*******86
14251 IFY3=1THEN14266
14252 IFY>Y1ANDY<Y2THENY3=0:RETURN
14253 Y3=1:IFPEEK(826)=169THEN14260
14254 Y$(0)="169.032.162.016.157.248.129.232.208.250.162.030.169:233.157"
14255 Y$(1)="130.157.048.130.169.223.157.010.130.157.051.130.169.160.157"
14256 Y$(2)="130.157.050.130.157.089.130.157.090.130.157.129.130.157.130"
14257 Y$(3)="157.169.130.157.170.130.157.209.130.157.210.130.096.210.130"
14258 FORY4=0TO3:FORY5=0TO15:Y=VAL(RIGHT$(Y$(Y4).63-Y5*4))
14259 POKE826+Y4*16+Y5.Y:NEXTY4
14260 POKE158.0
14261 PRINT"^^":Y$:"^^^^“:PRINTTAB(11)Y1.TAB(23)Y2
14262 PRINTTAB(12)"I--I^^^^^I  I^^^^^I  I IIIIHI\ /IIII":
14263 PRINT"         ^^^^ II IIIHIII IIIIII IIR\ /IIII--":
14264 PRINT"^^^^^...,..,.....^^^^^"
14265 Y5=(12*Y2-24*Y1)/(Y2-Y1):Y6=12/(Y2-Y1)
14266 Y9=Y5+Y*Y6:IFY9<0 THEN Y9=0
14267 IFY9>36 THEN Y9=36
14268 POKE 837.Y9:SYS 826
14269 GETY1$:IFY1$=""THENRETURN
14270 Y3=0:PRINT"^":RETURN
14300 Y1$="TEXT ON SCREEN":REM*******87
14301 Y=LEN(Y$):PRINT:POKE158.0
14302 Y$=Y$+" ":IFLEN(Y$)<39THEN14302
14303 PRINT"^“:Y$:HOLD300:PRINT"^^":Y$:HOLD300:GETY1$:IFY1$=""THEN14303
14304 PRINT"^                                       ^": RETURN
14350 Y1$="TEXT ON PRINTER“:REM******88